
# install package
# library(devtools)  
# install_github('lchiffon/REmap',force = T) 

library(REmap)
province<-mapNames("china")    ##获取各省份名称
value<-runif(max=100,min=10,length(province))
popdata<-data.frame(province,value)

pop<-remapC(data = popdata, #分配各省的数值
            theme = get_theme("Sky"), # 天蓝色主题
            maptype = "china", # 可以是china, world, 或者中国省份的名字（参见popdata[,1]）
            title = "中国各省市人口-随机")

plot(pop)
